<%
'#################################################################################
'## UnWritten Open Source Blog Engine
'#################################################################################
'## Copyright (C) 2008 Luigi Violin
'##
'## This program is free software: you can redistribute it and/or modify
'## it under the terms of the GNU General Public License as published by
'## the Free Software Foundation, either version 2 of the License, or
'## (at your option) any later version.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program.  If not, see <http://www.gnu.org/licenses/>.
'##
'## You can obtain support from our forums at:
'##     <http://www.unwrittenblog.com/forums/>
'## Contact the author directly:
'##     <zaamit@hotmail.com/>
'##
'#################################################################################
%>
<%
'misc
Dim objError, success, page_name, mnu_key
Dim cfg_serverip, cfg_port, cfg_db, cfg_user, cfg_pass, db_prefix
Dim zb_theme, master_page, use_custom_home, zb_ppp, use_nice_urls,zb_name,zb_enabled,zb_dis_text,zb_copyright,zb_description, zb_keywords, zb_addmeta, zb_root
'core objects arrays
Dim page(20),user(20)
'connection objects
Dim dbConn,dbRS1,dbRS2,dbRS3
set dbConn = Server.CreateObject("ADODB.Connection")
set dbRS1 = Server.CreateObject("ADODB.Recordset")
set dbRS2 = Server.CreateObject("ADODB.Recordset")
set dbRS3 = Server.CreateObject("ADODB.Recordset")
%>